Opt = Weight.via.Opt(df, W, method="KR25", delta=0.001, delta_prime=10, gamma=0.01)






thresholds1 <- data.frame(
  variable = c("X1", "X2", "X3"),#, "X4", "X5", "X6"),
  lb = c(0.00, 0.00, 0.02),#, 0, 0, 0),   # 예시
  ub = c(0.99, 0.95, 0.99)#, 0.95, 0.95, 0.95)    
)
thresholds2 <- data.frame(
  variable = c("X1", "X2", "X3", "X4", "X5", "X6"),
  lb = c(0, 0.01, 0.02),#, 0, 0, 0),   
  ub = c(1, 0.99, 1)#, 0.95, 0.95, 0.99)   
)

fairness_vis(Opt$final)
covbal_vis(Opt, subgroup.no = 1, thresholds1)
covbal_vis(Opt, subgroup.no = 2, thresholds2)


=====

